home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / RealTime Graphics ActiveX / DATA.3 / Examples / VB / Bars / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-10-23  |  4.5 KB  |  138 lines
  1. VERSION 5.00
  2. Object = "{CDA5F5E4-DE50-11D0-A956-00C0F6A06F60}#1.0#0"; "RTBARX.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "orm1"
  5.    ClientHeight    =   7212
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   9276
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   7212
  11.    ScaleWidth      =   9276
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin RTBARXLib.RTBARX RTBARX2 
  14.       Height          =   3252
  15.       Left            =   4200
  16.       TabIndex        =   1
  17.       Top             =   1440
  18.       Width           =   3732
  19.       _Version        =   65536
  20.       _ExtentX        =   6583
  21.       _ExtentY        =   5736
  22.       _StockProps     =   32
  23.       TitleString     =   "Form1.frx":0000
  24.       TitleFont       =   "Form1.frx":0025
  25.       TitleColor      =   "Form1.frx":0051
  26.       TitleFontStyle  =   "Form1.frx":0077
  27.       TitleFontSize   =   "Form1.frx":009D
  28.       TitlePos        =   "Form1.frx":00C3
  29.       BarChannelColor =   "Form1.frx":00E9
  30.       BarChannelTagName=   "Form1.frx":0183
  31.    End
  32.    Begin RTBARXLib.RTBARX RTBARX1 
  33.       Height          =   3252
  34.       Left            =   120
  35.       TabIndex        =   0
  36.       Top             =   1440
  37.       Width           =   3612
  38.       _Version        =   65536
  39.       _ExtentX        =   6371
  40.       _ExtentY        =   5736
  41.       _StockProps     =   32
  42.       TitleString     =   "Form1.frx":01BD
  43.       TitleFont       =   "Form1.frx":01E2
  44.       TitleColor      =   "Form1.frx":020E
  45.       TitleFontStyle  =   "Form1.frx":0234
  46.       TitleFontSize   =   "Form1.frx":025A
  47.       TitlePos        =   "Form1.frx":0280
  48.       BarChannelColor =   "Form1.frx":02A6
  49.       BarChannelTagName=   "Form1.frx":0340
  50.    End
  51. Attribute VB_Name = "Form1"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Option Explicit
  57.  Dim rData1(16) As Double
  58.  Dim rData2(16) As Double
  59. Private Sub Form_Load()
  60.   Call BuildGraph1
  61.   Call BuildGraph2
  62. End Sub
  63. Private Sub BuildGraph1()
  64. Dim i As Integer
  65.     RTBARX1.BarNumChannels = 8
  66.     RTBARX1.BarAlarmMessageEnable = True
  67.     RTBARX1.BarAlarmMarksEnable = True
  68.     RTBARX1.BarHighAlarmValue = 5.8
  69.     RTBARX1.BarLowAlarmValue = 4.2
  70.     RTBARX1.BarHighAlarmString = "*HI*"
  71.     RTBARX1.BarLowAlarmString = "*LO*"
  72.     RTBARX1.BarNormalAlarmString = "ok"
  73.     'DYN TEXT
  74.     RTBARX1.BarDynTextEnable = True
  75.     'SCALING AND CENTER POINT
  76.     RTBARX1.BarScaleMin = 4#
  77.     RTBARX1.BarScaleMax = 7#
  78.     RTBARX1.BarScaleCenter = 4#
  79.     RTBARX1.BarTickSpace = 1#
  80.     RTBARX1.BarNumTicks = 5
  81.     For i = 0 To RTBARX1.BarNumChannels - 1
  82.        rData1(i) = 5 ' Starting point for data simulation
  83.     Next i
  84.     'AXIS LABEL PRECISION
  85.     RTBARX1.BarLabelsPrecision = 2
  86.     'COLORS
  87.     RTBARX1.WindowBackgroundColor = RGB_WHITE
  88.     'TITLE
  89.     RTBARX1.TitleString(TITLE1) = "Vertical Bar Graph"
  90.     'INTERNAL TIMER
  91.     RTBARX1.EnableInternalTimer = True
  92. End Sub
  93. Private Sub BuildGraph2()
  94. Dim i As Integer
  95.     RTBARX2.BarNumChannels = 4
  96.     RTBARX2.BarType = OR_HORZ  'draw a horizontal bar graph
  97.     'COLORS
  98.     RTBARX2.WindowBackgroundColor = RGB(128, 128, 0)
  99.     RTBARX2.PlotBackgroundColor = RGB(128, 64, 0)
  100.     'ALARMS
  101.     RTBARX2.BarAlarmMarksEnable = True
  102.     RTBARX2.BarAlarmMessageEnable = True
  103.     RTBARX2.BarHighAlarmValue = 5.9
  104.     RTBARX2.BarLowAlarmValue = 4.1
  105.     RTBARX2.BarNumTicks = 9
  106.     'TAG NAMES
  107.     RTBARX2.BarChannelTagName(0) = "One"
  108.     RTBARX2.BarChannelTagName(1) = "Two"
  109.     RTBARX2.BarChannelTagName(2) = "Three"
  110.     RTBARX2.BarChannelTagName(3) = "Four"
  111.     For i = 0 To RTBARX2.BarNumChannels - 1
  112.        rData2(i) = 5 ' Starting point for data simulation
  113.     Next i
  114.     ' BAR COLORS
  115.     RTBARX2.BarChannelColor(0) = RGB(0, 0, 128)
  116.     RTBARX2.BarChannelColor(1) = RGB(255, 255, 0)
  117.     RTBARX2.BarChannelColor(2) = RGB(255, 255, 255)
  118.     RTBARX2.BarChannelColor(3) = RGB(0, 0, 0)
  119.     'TITLES
  120.     RTBARX2.TitleString(TITLE1) = "Horizontal Bar Graph"
  121.     'INTERNAL TIMER
  122.     RTBARX2.EnableInternalTimer = True
  123. End Sub
  124. Private Sub RTBARX1_OnInternalTimer()
  125.  Dim i As Integer
  126.   For i = 0 To RTBARX1.BarNumChannels - 1
  127.      rData1(i) = rData1(i) + 0.5 * (0.5 - Rnd)
  128.   Next i
  129.    Call RTBARX1.UpdateDynData(rData1(0))
  130. End Sub
  131. Private Sub RTBARX2_OnInternalTimer()
  132.  Dim i As Integer
  133.   For i = 0 To RTBARX2.BarNumChannels - 1
  134.      rData2(i) = rData2(i) + 0.5 * (0.5 - Rnd)
  135.   Next i
  136.    Call RTBARX2.UpdateDynData(rData2(0))
  137. End Sub
  138.